#!/usr/bin/perl
while($line=<STDIN>) {
	if($line=~/K = ([0-9]+)/) {
		print $1;
	}
	if($line=~/NIST score = ([0-9\.]+)/) {
		print " $1";
	}
	if($line=~/BLEU score = ([0-9\.]+)/) {
		print " $1";
	}
	if($line=~/F=([0-9\.]+)/) {
		print " $1\n";
	}
}
